1 INPUT"[147][144]STARTING ADDRESS";S:INPUT"ENDING ADDRESS";F
2 PRINT"[147]":FORI=STOS+47STEP6
3 IFI>FTHENNEXT:PRINT"GOTO 7":GOTO6
4 PRINTI;"DATA";:FORJ=0TO5:R$=STR$(PEEK(I+J)):PRINTRIGHT$(R$,LEN(R$)-1);",";
5 NEXTJ:PRINTCHR$(20):NEXTI:PRINT"GOTO 2"
6 POKE208,10:FORK=1TO10:POKE841+K,13:NEXTK:PRINT"":S=S+48:END
7 PRINT"[147]":FORM=1TO8:PRINTM:NEXTM
8 POKE208,8:FORK=1TO8:POKE841+K,13:NEXTK:PRINT"":END